function invert_value(value)
  return 1.0-value
end

function invert_rgb(r,g,b)
  return invert_value(r), 
         invert_value(g),
         invert_value(b)
end

function invert_get_rgb(x,y)
  r,g,b=get_rgb(x,y)
  return invert_rgb(r,g,b)
end

function invert()
  for y=0, height-1 do
    for x=0, width-1 do
      set_rgb(x,y, invert_get_rgb(x,y))
    end
  end
  flush()
end

invert()
